Rejects incoming calls.

None

• Reject command normally works in digital telephone lines.
• This command is useful for rejecting calls without attending them.

MAIN:
	while $ring <= 0
	sleepevent 1000
	endwhile
	
	if $dli <> "3011000"
	reject
	goto MAIN
	
	endif
	answer 1
	play "welcome.wav"